home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aan.d64 / script analysis (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  17KB  |  449 lines
  1. 5 REM "SCRIPT"
  2. 10 POKE53280,1:POKE53281,1:PRINT"[147][151]":DIMT1(20),T2(30)
  3. 20 DIMW$(74),G$(14),G(14),W(14,7,9),T(14,9),T$(14,9),P$(14),P(74)
  4. 25 D$=".":N$=CHR$(13):CO$=", "
  5. 30 FORI=0TO22:K$=K$+"":NEXT:K$=""+K$+"PRESS ANY KEY"
  6. 87 S=2:C=12:O=(49152+2*1024)/256:PC=61439
  7. 88 FORI=1TO33:READA:POKE49151+I,A:NEXT:GOSUB95
  8. 89 POKE56576,PEEK(56576)AND252:POKE53272,S*16+C:POKE648,O
  9. 90 FORI=53236TO53245:READA:POKEI,A:NEXT
  10. 91 POKE53246,PEEK(792):POKE53247,PEEK(793):POKE792,244:POKE793,207:GOTO100
  11. 95 POKE56334,PEEK(56334)AND254:POKE1,PEEK(1)AND251:SYS49152
  12. 96 POKE1,PEEK(1)OR4:POKE56334,PEEK(56334)OR1:RETURN
  13. 97 DATA169,0,133,251,133,253,169,208,133,252,169,240,133,254,162,16
  14. 98 DATA160,0,177,251,145,253,136,208,249,230,252,230,254,202,208,240,96
  15. 99 DATA72,169,4,141,136,02,104,108,254,207
  16. 100 FORI=1TO74:READW$(I):NEXT
  17. 110 PRINT"[147][151]"TAB(17)"SCRIPT":PRINTTAB(16)"ANALYSIS
  18. 114 [153][163]13)"BY BOB SPIRKO"
  19. 120 [129]I[178]0[164]14:[135]G$(I),G(I):[130]
  20. 140 E[178]8:[129]I[178]1[164]49:[135]L:[129]J[178]1[164]8:[135]K:[151]PC[170]L[172]E[170]J,K:[130]:[130]
  21. 150 [153]""[163]19)"_ \":[153][163]20)""
  22. 155 [153][163]13)"^  ^ ^     ^":[153][163]14)"      \"
  23. 160 [129]I[178]1[164]53:[135]L:[129]J[178]1[164]8:[135]K:[151]PC[170]L[172]E[170]J,K:[130]:[130]
  24. 170 [129]I[178]0[164]14:[129]J[178]0[164]G(I):[135]T$(I,J):[130]:[130]
  25. 180 [129]I[178]0[164]14:[129]J[178]0[164]G(I):[135]T(I,J):[129]K[178]0[164]T(I,J):[135]W(I,J,K)
  26. 190 [130]:[130]:[130]
  27. 200 [133]"LOADPRINT#FILENAME";F$:[153]"FORNPRINT#EW OR FORLPRINT#OAD?"
  28. 220 [161]A$:[139]A$[178]""[167]220
  29. 230 [139]A$[178]"L"[167]4000
  30. 240 [153]"FORLPRINT#EFT- OR FORRPRINT#IGHTHANDED?"
  31. 242 [161]H$:[139]H$[178]""[167]242
  32. 245 [139]H$[178]"L"[167]500
  33. 250 H$[178]"R":[137]500
  34. 300 B[178][197](A$)[171]1:[129]C[178]0[164]T(A,B):P(W(A,B,C))[178]P(W(A,B,C))[170]1:[130]:[142]
  35. 333 [161]B$:[139]B$[178]""[167]333
  36. 337 [139]B$[179][177]"1"[167][142]
  37. 339 P$[178]P$[170]T$(A,B)[170]CO$:A$[178][199](B[170]49):[141]300:[142]
  38. 344 [153][163]5)T$(A,B)":  ";:[142]
  39. 400 [153]"POKE":[129]B[178]0[164]G(A):[153][163]7)[201]([196](B[170]1),1)". "T$(A,B):[130]
  40. 405 [153]"CONT"[163]7);
  41. 410 [153]"SINCMD";:[161]A$:[153]"WAITSINCMD";:[139]A$[178]""[167]410
  42. 420 V[178][198](A$)[171]49:[139]V[179]0[176]V[177]G(A)[167]410
  43. 430 [153]" ";:[142]
  44. 450 [153][200](P$(I),J):[153][201](P$(I),[195](P$(I))[171]J):[142]
  45. 500 [129]A[178]0[164]14:AA[178]A[170]1:[153]"LOAD"AA;G$(A)"PRINT#"
  46. 510 [145]AA[141]1000,1200,1400,1600,1800,2000,2200,2400,2600,2800,3000,3200,3400
  47. 520 [139]A[178]13[167][141]3600
  48. 525 [139]A[178]14[167][141]3800
  49. 530 [130]
  50. 600 [153]"LOAD"F$":SCRIPT CHARACTERISTICSPRINT#":[129]I[178]0[164]14
  51. 610 [153]"PRINT#"G$(I)": POKE";:[139]I[178]4[167]650
  52. 620 [139][195](P$(I))[179]24[167]650
  53. 630 [129]J[178]20[164]40:[139][202](P$(I),J,1)[178]","[167][141]450:[137]660
  54. 640 [130]J
  55. 650 [153]P$(I)
  56. 660 [130]I:[139]A$[178]"T"[176]A$[178]"D"[167][153]K$:[137]745
  57. 700 M[178]0:N[178]0:[129]I[178]1[164]74:[139]P(I)[178].[167]740
  58. 720 [139]P(I)[177]2[167]M[178]M[170]1:T1(M)[178]I:[137]740
  59. 730 [139]P(I)[178]2[167]N[178]N[170]1:T2(N)[178]I
  60. 740 [130]:[153]K$
  61. 745 [161]A$:[139]A$[178]""[167]745
  62. 746 [153]"LOAD"F$": ANALYSIS"
  63. 750 Y[178]44:[153]"POKEDOMINANT TRAITS:PRINT#";
  64. 760 [129]I[178]1[164]M:X$[178]W$(T1(I)):Y[178]Y[171]2[172](I[178]M):[141]950
  65. 770 [130]:Y[178]44:[153]:[153]"POKEOTHER TRAITS:PRINT#";
  66. 780 [129]I[178]1[164]N:X$[178]W$(T2(I)):Y[178]Y[171]2[172](I[178]N):[141]950:[130]
  67. 800 [153]:[153]"FOR   EPRINT#ND   FORDPRINT#ISK   FORTPRINT#APE   FORPPRINT#RINTER   FORRPRINT#UNCONT":[153][163]3)
  68. 810 [153]"WAITSINCMD";:[161]A$:[139]A$[178]""[167][153]"SINCMD";:[137]810
  69. 820 [153]" CMD";:[139]A$[178]"D"[176]A$[178]"T"[167]4100
  70. 830 [139]A$[178]"P"[167]4200
  71. 840 [139]A$[178]"R"[167]900
  72. 850 [139]A$[178]"E"[167][128]
  73. 860 [137]810
  74. 900 [129]I[178]1[164]74:P(I)[178]0:[130]:[129]I[178]0[164]13:P$(I)[178]"":[130]:H$[178]"":P$[178]"":[137]200
  75. 950 [139]([195](X$)[170]2)[177]39[171][185](0)[167][153]
  76. 960 [153][199](32)X$[199](Y);:[142]
  77. 1000 [153][163]21)"STOP_"[163]29)"'PRINT#"
  78. 1010 [153]"SCRIPT MAY BE STOPVERTICALWAITPRINT# OR PRINT#STOP%&!$%&#PRINT#WAIT OR"
  79. 1015 [153]"IT MAY SLANT TO THE LEFT.":[153]
  80. 1020 [153]"SLANT CAN ALSO VARY. FOR INSTANCE,"
  81. 1030 [153]"SOME LETTERS MAY BE VERTICAL WHILE"
  82. 1050 [153]"OTHERS ARE SLANTED. IF THE SAMPLE"
  83. 1060 [153]"HAS MORE THAN ONE SLANT OR THE SLANT"
  84. 1070 [153]"APPEARS INCONSISTENT THEN IT'S"
  85. 1080 [153]"CONSIDERED IRREGULAR.":[153]
  86. 1085 [153]"OF THE FOLLOWING CHOSE THE ONE"
  87. 1090 [153]"THAT CLOSELY MATCHES THE SLANT:"K$
  88. 1095 [161]A$:[139]A$[178]""[167]1095
  89. 1100 [153]"LOAD"
  90. 1110 [153][163]17)"3 4 5":[153][163]13)"2   THEN PEEK FN   6":[153][163]14)"RIGHT$   FN(null)THEN   (null)"
  91. 1120 [153][163]11)"1   MID$  (null)(null)(null)  (null)   7":[153][163]12)"(null)  RIGHT$  CHR$(null)LEFT$  (null)  (null)"
  92. 1130 [153][163]13)"(null)  MID$ (null)(null)(null) (null)  (null)":[153][163]14)"(null) RIGHT$ LEFT$(null)CHR$ (null) (null)"
  93. 1140 [153][163]15)"(null) MID$(null)(null)(null)(null) (null)":[153][163]16)"(null)RIGHT$THEN(null)FN(null)(null)":[153][163]17)"(null)MID$(null)(null)(null)"
  94. 1150 [153][163]18)"(null)(null)(null)":[153][163]8)"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
  95. 1160 [141]400:[139]H$[178]"L"[167]A$[178][202]("7654321",[197](A$),1)
  96. 1170 [141]300:P$(A)[178]T$(A,V):[142]
  97. 1200 [153]"THE BASELINE IS THE IMAGINARY LINE THAT"
  98. 1210 [153]"WE WRITE ON. SOME WRITERS HAVE LINES"
  99. 1220 [153]"THAT ARE STRAIGHT AS A RULER WHILE"
  100. 1230 [153]"OTHERS HAVE TROUBLE WRITING A STRAIGHT"
  101. 1240 [153]"LINE EVEN WHEN THEY HAVE GUIDE LINES."
  102. 1260 S$[178]"  ORTANTANTANTANTAN^":[129]I[178]1[164]4:[153]S$;:[130]:[153]
  103. 1270 S$[178]"(null)POKELENLENLENLENLEN(null)  (null)POKE(null)ASCLENSTR$VAL(null)  (null)POKEVALSTR$LENASC(null)(null)  (null)POKELENASCLENASCLEN(null)"
  104. 1280 [129]I[178]0[164]3:[153][163]2)S$:[130]
  105. 1290 [153]"POKE ":[129]I[178]0[164]3:[153][163]4[170]9[172]I)I[170]1;:[130]:[153]:[153]
  106. 1299 [141]400:[141]300:P$(A)[178]T$(A,V):[142]
  107. 1400 [153]"THE SIZE OF HANDWRITING IS JUDGED BY"
  108. 1410 [153]"SIZE OF THE MIDDLE ZONE LETTERS SUCH AS"
  109. 1420 [153]"STOPAPRINT#WAIT, STOPEPRINT#WAIT, STOPMPRINT#WAIT, AND STOPVPRINT#WAIT; LETTERS WITHOUT"
  110. 1430 [153]"UPPER OR LOWER LOOPS. AVERAGED-SIZED"
  111. 1440 [153]"HANDWRITING IS ABOUT 3 ML. HIGH. SELECT  THE APPROPIATE SIZE:"
  112. 1460 [153][163]9)"STOP*WAIT  _":C$[178][199](234)
  113. 1470 [153][163]5)"SPC(THENNOTSTEP"C$"  LARGE  NEWTAB(TOFN  (null)GET"
  114. 1480 [153][163]5)"-WAIT"[163]15)"]"
  115. 1490 [153][163]7)"1      2      3    4"
  116. 1499 [141]400:[141]300:P$(A)[178]T$(A,V):[142]
  117. 1600 [153]"CONTINUITY REFERS TO THE  DEGREE OF"
  118. 1610 [153]"CONNECTEDNESS BETWEEN LETTERS. IF THE"
  119. 1620 [153]"WRITING IS MOSTLY OR ENTIRELY CONNECTED"
  120. 1630 [153]"THEN PRESS 1. IF IT IS MOSTLY"
  121. 1635 [153]"OR ENTIRELY DISCONNECTED THEN PRESS 2."
  122. 1640 [153]"IF IT IS ABOUT EQUALLY CONNECTED AND"
  123. 1650 [153]"DISCONNECTED THEN PRESS 3."
  124. 1660 [153][163]30)"STOP^"
  125. 1670 [153]"  CONNECTED  (null)(null)S(null)(null)(null)(null)(null)(null)(null)(null)  (null)(null)MBI(null)(null)ON"
  126. 1680 [153][163]7)"1"[163]19)"2"[163]31)"3"
  127. 1699 [141]400:[141]300:P$(A)[178]T$(A,V):[142]
  128. 1800 [153]"THERE AREA FEW STYLES OF"
  129. 1805 [153]"WRITING. ROUND SCRIPT APPEARS ROUND IN"
  130. 1810 [153]"IN EVERY WAY. THE TOPS OF LETTERS AND"
  131. 1815 [153]"THE CONNECTING STROKES ARE ROUND.":[153]
  132. 1820 [153]"WHEREAS ANGULAR SCRIPT CONTAINS LETTERS"
  133. 1825 [153]"THAT ARE ALL POINTED. OFTEN A SAMPLE"
  134. 1830 [153]"IS NEITHER ENTIRELY ROUND OR ANGULAR"
  135. 1835 [153]"BUT A COMBINATION OF BOTH.":[153]
  136. 1840 [153]"INFREQUENTLY, YOU'LL FIND HANDWRITING"
  137. 1845 [153]"THAT IS ORGINAL OR ARTISIC: THE"
  138. 1847 [153]"LETTERS ARE UNUSUAL OR UNCONVENTIONAL."
  139. 1850 [153]"BUT DON'T MISTAKE SUPERFLUOUS LOOPS"
  140. 1855 [153]"AND FLOURISHES AS BEING ORIGINAL."K$
  141. 1860 [161]A$:[139]A$[178]""[167]1860
  142. 1870 [153]"LOADPOKE"[163]18)"RIGHT$WAIT"[163]26)"+'"
  143. 1875 [153][163]4)"XOUND"[166]5)"PEEKLENSTR$VALASCPEEKCHR$"[166]5)"*$#&[#["
  144. 1880 [153][163]16)"LEFT$":[153][163]6)"1"[163]17)"2"[163]29)"3":[153]"POKE"
  145. 1900 [129]B[178]0[164]3:[153][163]7)[201]([196](B[170]1),1)". "T$(A,B):[130]
  146. 1910 [141]405:[141]300:P$[178]T$(A,V):[153]
  147. 1920 [153]"PRINT#WHICH BEST DESCRIBES THE HANDWRITING?POKE"
  148. 1930 [129]B[178]4[164]5:[153][163]7)[201]([196](B[171]3),1)". "T$(A,B):[130]
  149. 1940 [141]405:[139]V[177]1[167][153]"CMD";:[137]1940
  150. 1950 A$[178][199](V[170]52):[141]300:P$(A)[178]P$[170]","[170]T$(A,V[170]4):[142]
  151. 2000 [153]"LINES CAN BE FAR APART OR SO CLOSE"
  152. 2010 [153]"TOGETHER THAT THE LOWER LOOPS OF ONE"
  153. 2020 [153]"LINE TANGLES WITH THE UPPER LOOPS OF"
  154. 2030 [153]"THE LINE BELOW:"
  155. 2040 [153][163]13)"STOPDRAGGING":[153][163]16)"ATN(null)  ATN"
  156. 2050 [153][163]12)"TANGLEDWAITLINES":[153][163]15)"(null)"
  157. 2060 [153]"PRINT#IF THE LINES ARE VERY TANGLED THEN"
  158. 2070 [153]"PRESS 5. IF THE LINES ARE NARROW BUT"
  159. 2080 [153]"ONLY A FEW LOOPS ARE TANGLED PRESS 4."
  160. 2090 [153]"IF LINES ARE CLOSE BUT NOT TOUCHING"
  161. 2100 [153]"PRESS 3. IF THE LINES ARE WIDE PRESS 2."
  162. 2110 [153]"IF THE SPACE BETWEEN LINES IS SOWIDE"
  163. 2120 [153]"THAT A ANOTHER LINE COULD BE PLACED"
  164. 2130 [153]"BETWEEN THEM THEN PRESS 1.":[153]K$
  165. 2140 [161]A$:[139]A$[178]""[167]2140
  166. 2199 [153]"LOAD":[141]400:[141]300:P$(A)[178]T$(A,V):[142]
  167. 2200 [153]"LEFT AND RIGHT MARGINS ARE TYPICLLY"
  168. 2210 [153] "ABOUT ONE INCH WIDE. OFTEN THEY ARE"
  169. 2220 [153]"MADE WIDER OR NARROWER, OR ARE"
  170. 2230 [153]"DIFFERENT WIDTHS. CHOOSE ONE OF THE"
  171. 2240 [153]"FOLLOWING. IF IT DOES NOT FIT IN ANY"
  172. 2250 [153]"CATEGORY, IE, A MARGIN MAY BE NARROW AT"
  173. 2260 [153]"AT THE TOP AND WIDE AT THE BOTTOM, THEN PRESS 6.":[153]K$
  174. 2265 [161]A$:[139]A$[178]""[167]2265
  175. 2270 [153]"LOAD"
  176. 2280 S$[178]"FNPOKELENLENLENLENLENLENTHEN   (null)POKEASCASCASCASCASCASCASC(null)  PEEKPOKE LENLENLENLEN PEEK":[129]I[178]1[164]5:[153][163]5)S$:[130]
  177. 2290 [153][163]8)"STOP1"[163]20)"2"[163]30)"3"
  178. 2300 S$[178]"PEEK POKELENLENLENLENLENLEFT$   LEFT$POKEASCASCASCASCASCASC PEEK":[129]I[178]1[164]5:[153][163]5)S$:[130]
  179. 2310 [153][163]8)"STOP4"[163]20)"5"
  180. 2399 [141]400:[141]300:P$(A)[178]T$(A,V):[142]
  181. 2400 [153]"PRESSURE IS SOMETIMES DIFFICULT TO      ASSESS. FOR HEAVY";
  182. 2410 [153]" PRESSURE, TURN THE    PAGE OVER AND SEE OR EVEN FEEL IF THE ";
  183. 2430 [153]"  PEN HAS LEFT INDENTATIONS IN THE PAPER."
  184. 2440 [153]"LIGHT PRESSURE APPEARS AS DELICATE OR"
  185. 2450 [153]"FAINT HANDWRITING. IF PRESSURE APPEARS  TO BE NEITHER HEAVY OR ";
  186. 2470 [153]"LIGHTTANTANOR YOU    SIMPLY CAN'T TELLTANTANTHEN PRESS 3."
  187. 2499 [141]400:[141]300:P$(A)[178]T$(A,V):[142]
  188. 2600 [153]"SPEED IS ALSO DIFFICULT TO DETERMINED.   SLOW WRITING IS OFTEN ";
  189. 2610 [153]"DISCONNECTED AND  CONTAINS AWKWARD OR FLOURISHED FORMS."
  190. 2650 [153]"T'S ARE CAREFULLY CROSSED AND I'S DOTTEDPRECISELY."
  191. 2660 [153]"FAST SCRIPT IS MOSTLY CONNECTED AND      CONTAINS NATURAL, ";
  192. 2680 [153]"AND UNCOMPLICATED     FORMS  T=BARS AND I-DOTS MAY BE PLACED  TO";
  193. 2685 [153]"THE RIGHT. FAST WRITING IS USUALLY   INCLINED."
  194. 2690 [153]"IF THE WRITING APPEARS NEITHER FAST OR"
  195. 2700 [153]"SLOW OR YOU'RE NOT SURE, THEN PRESS 3."
  196. 2799 [141]400:[141]300:P$(A)[178]T$(A,V):[142]
  197. 2800 [153]"UPPER ZONES REFER TO THE UPPER LOOPS ON"
  198. 2805 [153][163]16)"POKE^  ^      _"
  199. 2810 [153]"PRINT#LETTERS SUCH AS POKEBPRINT#WAIT, POKEHPRINT#WAIT, AND POKELPRINT#WAIT. THE"
  200. 2820 [153]"LOWER ZONE CONSISTS OF THE LOWER LOOPS"
  201. 2830 [153]"ON LETTERS SUCH AS POKEGPRINT#WAIT, POKEPPRINT#WAIT, ANS POKEYPRINT#WAIT."
  202. 2840 [153][163]19)"POKE]  \      "
  203. 2845 [153]"CLRTYPICALLY UPPER AND LOWER ZONES ARE     ABOUT THE SAME HEIGHT OR";
  204. 2846 [153]" HIGHER THAN THEMIDDLE ZONE. IF THE ZONES ARE ABOUT     EQUAL";
  205. 2870 [153] " PRESS 1. IF THE ZONES VARY    THEN PRESS 6."
  206. 2885 [153]"IF EITHER UPPER OR LOWER ZONE IS SHORT  THEN CONSIDER IT BEING ";
  207. 2895 [153]"NORMAL. IF BOTH  ZONES ARE SHORT THEN PRESS 5."K$
  208. 2900 [161]A$:[139]A$[178]""[167]2900
  209. 2910 [153]"LOADPOKE":S$[178]"4044YGAG"
  210. 2920 [153][163]5)"< <<"[163]15)"> >>"[163]25)"< <<"
  211. 2930 [129]I[178]5[164]25[169]10:[153][163]I)S$;:[130]:[153]
  212. 2940 [153][163]9)"]] ]"[163]19)"]] ]"[163]29)"(null)(null) (null)"
  213. 2950 [153][163]9)"1"[163]19)"2"[163]29)"3"
  214. 2960 [153][163]5)">CLOSE>>"[163]25)"< >
  215. 2970 FORI=5TO25STEP10:PRINTTAB(I)S$;:NEXT:PRINT
  216. 2980 PRINTTAB(9)"[255][255] [255]"TAB(19)"== ="TAB(29)"][255] ="
  217. 2990 PRINTTAB(9)"4"TAB(19)"5"TAB(29)"6"
  218. 2999 GOSUB400:GOSUB300:P$(A)=T$(A,V):RETURN
  219. 3000 PRINT"OVALS ARE THE LETTERS [151]A[152][146] AND [151]O[146][152]. THESE    ARE USUALLY CLOSED:";
  220. 3010 PRINT" [151]OVA4S[146][152]. BUT SOMETIMESTHEY HAVE OPENINGS AT THE TOP: [151]QV@4S"
  221. 3040 PRINT"[152]IF MOST OR ALL THE OVALS ARE CLOSED"
  222. 3050 PRINT"THEN PRESS 1. IF MOST OR ALL OVALS"
  223. 3060 PRINT"ARE OPEN PRESS 2. IF THEY ARE EQUALLY":PRINT"PRESENT PRESS 3."
  224. 3099 GOSUB400:GOSUB300:P$(A)=T$(A,V):RETURN
  225. 3200 PRINT"T-BARS ARE THE STROKES THAT CROSS THE   LETTER T. OF THE FOLLOWING";
  226. 3220 PRINT" CHOOSE THE    LENGTH WHICH IS THE MOST PRAVALENT:"
  227. 3230 PRINT"[144]"TAB(10)"T"TAB(20)"12"TAB(30)"3"
  228. 3235 PRINTTAB(10)"1"TAB(20)"2"TAB(30)"3[151]"
  229. 3240 FORB=0TO2:PRINTTAB(7)RIGHT$(STR$(B+1),1)". "T$(A,B):NEXT
  230. 3245 GOSUB405:GOSUB300:P$=T$(A,V)+", "
  231. 3250 PRINT"[147][152]T-BARS ALSO VARY IN POSITION. IF ANY OF THE FOLLOWING APPEAR";
  232. 3255 PRINT" DISTINCTLY AT      LEAST THREE TIMES IN THE SAMPLE THEN"
  233. 3265 PRINT"PRESS 1. IFF NOT THEN PRESS ANY:[151]"
  234. 3270 B=3:GOSUB344:PRINT"4":GOSUB333:PRINT
  235. 3275 B=4:GOSUB344:PRINT"05":GOSUB333:PRINT
  236. 3280 B=5:GOSUB344:PRINT"62":GOSUB333
  237. 3290 B=6:PRINTTAB(12)"7":GOSUB344:PRINT"4":GOSUB333:PRINT:B=7:GOSUB344
  238. 3300 PRINT"8":GOSUB333:P$(A)=LEFT$(P$,LEN(P$)-2):P$="":LL=0:RETURN
  239. 3400 PRINT"I-DOTS ARE INTERPRETED IN A SIMILAIR WAYTO T-BARS. IF ANY OF THE";
  240. 3420 PRINT" FOLLOWING      APPEARS DISTINCTLY MORE THAN TWICE THEN"
  241. 3430 PRINT"PRESS 1. IF NOT PRESS ANY:[151]"
  242. 3450 FORF=0TO5:B=F:GOSUB344:PRINTCHR$(202+F):GOSUB333:PRINT
  243. 3460 NEXT:IFP$=""THENRETURN
  244. 3470 P$(A)=LEFT$(P$,LEN(P$)-2):RETURN
  245. 3600 PRINT"BEGINNING STROKES ARE THE STROKES AT    THE BEGINNING OF WORDS:"
  246. 3620 PRINT"[151]THE -COMMODORE -COMPUTER[146]":PRINTTAB(19)"\"
  247. 3630 PRINT"[152]IF MOST OR ALL HAVE BEGINNING       STROKES THEN PRESS  1."
  248. 3640 PRINT"PRESS 2 IF THEY ARE MOSTLY ABSENT:"
  249. 3650 PRINT"[151][215]HE [211]OMMODORE [211]OMPUTER[146]":PRINTTAB(17)"\"
  250. 3660 PRINT"[152]IF THEY BOTH APPEAR EQUALLY PRESS 3."
  251. 3699 GOSUB400:GOSUB300:P$(A)=T$(A,V):RETURN
  252. 3800 PRINT"THE HEIGHT OF CAPITALS IS DETERMINED IN"
  253. 3810 PRINT"RELATIONSHIP TO THE MIDDLE ZONE."
  254. 3820 PRINT"MEDIUM SIZED CAPITALS ARE ABOUT TWICE"
  255. 3830 PRINT"THE HEIGHT OF MIDDLE ZONE LETTERS. TALL"
  256. 3840 PRINT"OR SHORT CAPITALS ARE TALLER OR SHORTER"
  257. 3850 PRINT"THEN THE MIDDLE ZONE."
  258. 3899 GOSUB400:GOSUB300:P$(A)=T$(A,V):RETURN
  259. 4000 PRINT"[129]D[152]ISK OR [129]T[152]APE?"
  260. 4005 GETA$:IFA$=""THEN4005
  261. 4006 IFA$<>"T"ANDA$<>"D"THEN4005
  262. 4010 IFA$="D"THENOPEN2,8,2,F$+",P,R":GOTO4030
  263. 4020 OPEN2,1,0,F$
  264. 4030 INPUT#2,H$,M,N:FORI=0TO14:INPUT#2,P$:IFI=4ORI=11ORI=12THENGOSUB4050
  265. 4035 P$(I)=P$:NEXT
  266. 4040 FORI=1TOM:INPUT#2,T1(I):NEXT:FORI=1TON:INPUT#2,T2(I):NEXT:CLOSE2:GOTO600
  267. 4050 Q$="":FORJ=1TOLEN(P$):M$=MID$(P$,J,1):IFM$="-"THENM$=","
  268. 4060 Q$=Q$+M$:NEXT:P$=Q$:RETURN
  269. 4100 PRINT"[152]":IFA$="D"THENOPEN2,8,2,"0:"+F$+",P,W":PRINT"[151]SAVING "F$:GOTO4120
  270. 4110 OPEN2,1,1,F$
  271. 4120 PRINT#2,H$;N$;M;N$;N:FORI=0TO14:P$=P$(I):IFI=4ORI=11ORI=12THENGOSUB4150
  272. 4130 PRINT#2,P$:NEXT
  273. 4140 FORI=1TOM:PRINT#2,T1(I):NEXT:FORI=1TON:PRINT#2,T2(I):NEXT:CLOSE2:GOTO746
  274. 4150 P$="":FORJ=1TOLEN(P$(I)):M$=MID$(P$(I),J,1):IFM$=","THENM$="-"
  275. 4160 P$=P$+M$:NEXT:RETURN
  276. 4200 OPEN4,4:PRINT#4,CHR$(14)CHR$(16)"SCRIPT ANYLSIS"CHR$(15)
  277. 4210 PRINT#4,N$N$"NAME: "F$N$N$"HANDWRITING CHARACTERISTICS"
  278. 4240 FORI=0TO14:PRINT#4,G$(I)": "P$(I):NEXT:PRINT#4,N$"DOMINANT TRAITS"
  279. 4250 FORI=1TOM-1:PRINT#4,W$(T1(I))CO$;:IFI/5=INT(I/5)THENPRINT#4
  280. 4255 NEXT:PRINT#4,W$(T1(M))D$N$
  281. 4270 FORI=1TON-1:PRINT#4,W$(T2(I))CO$;:IFI/5=INT(I/5)THENPRINT#4
  282. 4275 NEXT:PRINT#4,W$(T2(N))D$N$
  283. 4280 CLOSE4:GOTO746
  284. 5000 DATA AESTHETIC,AFFECTIONATE,AGGRESSIVE,ALOOF,AMBITIOUS
  285. 5010 DATA AMIABLE,ANXIOUS,ARDENT,ARROGANT,ASSERTIVE
  286. 5020 DATA BALANCED,CALM,CAREFUL,CARELESS,CAUTIOUS
  287. 5030 DATA CONFUSED,CONSCIENTIOUS,CONSERVATIVE,CONVENTIONAL,CRITICAL
  288. 5040 DATA DIFFIDENT,DILIGENT,EMOTIONAL,ENERGETIC,ENTERPRISING
  289. 5050 DATA EXCITABLE,EXTRAVAGANT,EXTROVERTED,FASTIDIOUS,FLEXIBLE
  290. 5060 DATA FRUGAL,GENEROUS,IDEALISTIC,ILLOGICAL
  291. 5070 DATA IMAGINATIVE,IMPATIENT,IMPRESSIONABLE,IMPULSIVE,INDECISIVE
  292. 5080 DATA INDEPENDENT,INDIFFERENT,INDIVIDUALISTIC,INHIBITED,INSINCERE
  293. 5090 DATA INTELLIGENT,INTROVERTED,IRRITABLE,LANGUID,LOGICAL
  294. 5100 DATA LOQUACIOUS,LOYAL,MATURE,METHODICAL,NERVOUS
  295. 5110 DATA ORGANIZED,PASSIONATE,PASSIVE,PATIENT,PRACTICAL
  296. 5120 DATA REALISTIC,REASONABLE,REFLECTIVE,RESERVED,RESOLUTE
  297. 5130 DATA SECLUSIVE,SELF-DISCIPLINED,SELFISH,SENSITIVE,SINCERE
  298. 5140 DATA SPONTANEOUS,TACTFUL,TACTLESS,UNDISCIPLINED,UNRELIABLE
  299. 5200 DATA SLANT,7,BASELINE,3,SIZE,3,CONTINUITY,2,STYLE,5,LINE SPACING,4
  300. 5210 DATA MARGINS,5,PRESSURE,2,SPEED,2,ZONES,5,OVALS,2,T-BARS,7,I-DOTS,5
  301. 5220 DATA BEGINNING STROKES,2,CAPITALS,2
  302. 6028 DATA 28,160,160,160,160,64,0,0,0
  303. 6029 DATA 29,10,10,10,10,10,4,0,0
  304. 6030 DATA 30,0,0,0,0,0,0,64,64
  305. 6031 DATA 31,0,0,0,0,0,0,16,40
  306. 6033 DATA 33,0,0,14,18,32,99,156,0
  307. 6043 DATA 43,0,0,0,0,0,2,6,12
  308. 6060 DATA 60,0,0,0,0,0,8,8,8
  309. 6061 DATA 61,6,10,4,0,0,0,0,0
  310. 6062 DATA 62,0,0,8,8,8,8,8,8
  311. 6065 DATA 65,10,10,18,50,44,44,56,40
  312. 6067 DATA 67,0,0,0,85,170,0,0,0
  313. 6068 DATA 68,0,0,85,170,0,0,0,0
  314. 6069 DATA 69,0,85,170,0,0,0,0,0
  315. 6070 DATA70,0,0,0,0,170,85,0,0
  316. 6073 DATA 73,8,8,12,4,6,2,3,1
  317. 6074 DATA74,128,128,192,64,96,32,48,16
  318. 6075 DATA 75,1,1,3,2,6,4,12,8
  319. 6077 DATA 77,128,192,96,48,24,12,6,3
  320. 6078 DATA 78,1,3,6,12,24,48,96,192
  321. 6082 DATA 82,0,0,0,0,0,85,170,0
  322. 6085 DATA 85,16,16,48,32,96,64,192,128
  323. 6094 DATA94,6,10,10,18,18,18,18,12
  324. 6128 DATA 128,0,0,16,36,68,68,187,0
  325. 6129 DATA 129,0,0,26,38,66,66,189,0
  326. 6130 DATA 130,64,64,92,98,66,67,188,0
  327. 6131 DATA 131,0,0,60,98,64,193,62,0
  328. 6132 DATA 132,2,2,58,70,66,194,61,0
  329. 6133 DATA 133,0,0,28,36,88,96,191,0
  330. 6135 DATA 135,0,0,26,38,66,66,189,6
  331. 6136 DATA136,64,64,92,98,66,66,129,0
  332. 6137 DATA 137,0,8,0,8,24,40,199,0
  333. 6139 DATA 139,64,64,88,100,72,88,135,0
  334. 6140 DATA140,40,40,40,40,40,48,223,0
  335. 6141 DATA141,0,0,84,106,74,74,137,0
  336. 6142 DATA 142,0,0,92,98,66,66,129,0
  337. 6143 DATA 143,0,0,28,43,82,98,60,0
  338. 6144 DATA 144,0,32,44,50,98,162,173,160
  339. 6145 DATA 145,0,0,16,35,66,68,184,0
  340. 6146 DATA 146,0,0,32,60,36,68,131,0
  341. 6147 DATA 147,0,0,12,24,36,68,187,0
  342. 6148 DATA 148,8,127,8,8,24,40,199,0
  343. 6149 DATA 149,0,0,66,66,66,70,185,0
  344. 6150 DATA150,0,0,67,66,66,164,24,0
  345. 6152 DATA152,0,0,24,36,68,66,129,0
  346. 6153 DATA 153,0,0,66,66,66,70,187,6
  347. 6154 DATA 154,0,0,12,18,34,98,156,0
  348. 6155 DATA 155,1,1,26,38,68,202,49,0
  349. 6160 DATA 160,0,0,0,0,0,0,0,0
  350. 6161 DATA 161,0,0,12,18,32,96,159,0
  351. 6162 DATA 162,1,1,26,38,68,202,49,0
  352. 6163 DATA 163,0,0,28,36,88,97,158,0
  353. 6164 DATA 164,10,12,24,48,80,144,15,0
  354. 6165 DATA 165,1,0,0,8,24,104,134,0
  355. 6166 DATA 166,0,0,0,44,50,68,135,0
  356. 6167 DATA 167,0,0,0,0,3,5,5,10
  357. 6168 DATA 168,1,1,26,38,68,202,49,0
  358. 6170 DATA 170,12,24,16,38,66,196,56,0
  359. 6173 DATA 173,0,0,0,0,0,0,7,0
  360. 6176 DATA 176,0,3,0,0,0,0,0,0
  361. 6177 DATA 177,8,255,8,8,24,40,199,0
  362. 6178 DATA 178,0,192,0,0,0,0,0,0
  363. 6179 DATA 179,8,30,8,8,24,40,199,0
  364. 6180 DATA 180,8,8,8,8,24,40,199,0
  365. 6181 DATA 181,8,232,8,8,24,40,199,0
  366. 6182 DATA 182,8,11,8,8,24,40,199,0
  367. 6183 DATA 183,0,0,0,0,0,0,63,0
  368. 6184 DATA 184,8,8,8,63,24,40,199,0
  369. 6194 DATA 194,0,0,3,13,18,38,217,0
  370. 6195 DATA 195,0,0,9,27,45,81,160,0
  371. 6196 DATA 196,0,0,3,13,18,38,217,6
  372. 6197 DATA 197,0,0,17,50,86,154,17,0
  373. 6198 DATA 198,4,12,12,20,36,66,129,0
  374. 6199 DATA 199,0,0,16,56,73,138,12,0
  375. 6200 DATA 200,12,8,16,48,32,0,0,0
  376. 6201 DATA 201,0,0,0,0,1,3,2,6
  377. 6202 DATA 202,0,0,16,0,16,16,48,206
  378. 6203 DATA 203,0,0,0,0,16,16,48,206
  379. 6204 DATA 204,8,0,0,0,16,16,48,206
  380. 6205 DATA 205,0,0,1,0,16,16,48,206
  381. 6206 DATA 206,0,0,128,0,16,16,48,206
  382. 6207 DATA 207,4,8,0,0,16,16,48,206
  383. 6209 DATA 209,2,2,58,70,66,66,60,0
  384. 6210 DATA 210,16,0,16,48,80,16,12,0
  385. 6211 DATA 211,0,0,28,34,64,66,60,0
  386. 6212 DATA 212,0,0,28,34,66,68,56,0
  387. 6213 DATA 213,0,0,44,114,34,34,65,0
  388. 6214 DATA 214,0,0,28,36,120,66,60,0
  389. 6215 DATA 215,16,126,16,16,16,18,12,0
  390. 6223 DATA 223,0,0,0,0,0,93,255,0
  391. 6224 DATA 224,0,0,0,0,0,93,255,0
  392. 6225 DATA 225,0,0,18,18,18,164,219,0
  393. 6226 DATA226,0,0,0,0,124,212,87,0
  394. 6227 DATA 227,0,0,1,1,205,147,238,0
  395. 6228 DATA 228,0,0,32,0,36,109,182,0
  396. 6229 DATA 229,0,0,0,0,190,170,201,0
  397. 6230 DATA 230,28,34,66,66,66,67,62,10
  398. 6231 DATA 231,16,46,34,66,66,130,1,0
  399. 6232 DATA 232,28,34,68,88,96,96,159,0
  400. 6233 DATA 233,28,38,74,82,98,198,57,0
  401. 6234 DATA 234,24,24,24,24,24,36,195,0
  402. 6235 DATA 235,18,18,34,34,34,34,28,0
  403. 6236 DATA 236,0,0,0,0,24,24,255,24
  404. 7000 DATAVERY RECLINED,RECLINED,LIGHTLY RECLINED,VERTICAL,LIGHTLY INCLINED
  405. 7002 DATAINCLINED,VERY INCLINED,IRREGULAR
  406. 7010 DATASTRAIGHT,ASCENDING,DESCENDING,UNEVEN
  407. 7020 DATAVERY LARGE,LARGE,MEDIUM,SMALL
  408. 7030 DATAMOSTLY CONNECTED,MOSTLY UNCONNECTED
  409. 7032 DATABOTH CONNECTED & UNCONNECTED
  410. 7040 DATAROUND,ANGULAR,ROUND & ANGULAR,ORIGINAL,LEGIBLE,ILLEGIBLE/MESSY
  411. 7050 DATAVERY WIDE,WIDE,MEDIUM,NARROW,TANGLED
  412. 7060 DATABOTH NORMAL,BOTH NARROW,BOTH WIDE,WIDE LT/NORMAL OR NARROW RT
  413. 7062 DATANARROW OR NORMAL LT/WIDE RT,OTHER
  414. 7080 DATAHEAVY,LIGHT,MEDIUM,FAST,SLOW,MEDIUM
  415. 7090 DATASYMMETRICAL,EXTENDED UZ,EXTENDED LZ
  416. 7092 DATABOTH UZ & LZ EXTENDED,BOTH UZ & LZ SHORT,IRREGULAR
  417. 7100 DATAMOSTLY OPEN,MOSTLY CLOSED,BOTH OPEN & CLOSED
  418. 7110 DATAREGULAR,LONG,SHORT,ABSENT,LEFT,RIGHT,HIGH,LOW
  419. 7120 DATAPRECISELY PLACED,ABSENT,HIGH,RIGHT,LEFT,DASHED
  420. 7130 DATAMOSTLY ABSENT,MOSTLY PRESENT,BOTH ABSENT & PRESENT
  421. 7140 DATATALL,MEDIUM,SHORT
  422. 8300 DATA5,39,40,41,44,65,67
  423. 8301 DATA5,4,39,40,41,44,67,4,39,43,44,46,71
  424. 8302 DATA7,4,15,31,40,41,49,62,63,5,2,6,8,19,68,69
  425. 8304 DATA7,2,8,23,24,37,56,69,70,6,2,8,23,26,38,56,68,3,7,14,16,74
  426. 8310 DATA6,11,17,29,53,64,66,69,5,5,24,25,26,35,70
  427. 8312 DATA3,26,39,54,73,5,7,26,39,54,73,74
  428. 8320 DATA4,9,22,24,27,28,5,9,27,32,35,40,42
  429. 8322 DATA3,18,55,61,68,9,1,13,18,21,22,29,41,45,58,71
  430. 8330 DATA6,13,19,22,34,53,61,64,2,34,35,68,4,1,20,25,42,52
  431. 8340 DATA4,1,2,6,30,32,6,3,20,24,36,37,45,64
  432. 8342 DATA2,1,42,45,3,1,35,42,45,4,13,17,51,61,66
  433. 8344 DATA8,14,16,35,36,37,39,45,54,73
  434. 8350 DATA2,4,63,65,4,13,45,55,71,66,3,11,28,49,60
  435. 8352 DATA6,14,16,31,34,47,70,72,5,14,31,34,35,63,73
  436. 8360 DATA3,11,13,17,55,4,29,50,60,68,72
  437. 8362 DATA2,4,62,65,1,15,21,4,27,29,32,44,50,0,0
  438. 8370 DATA4,10,24,25,56,64,5,1,21,30,37,48,68,0,0
  439. 8380 DATA8,1,3,5,10,22,25,30,38,70,8,11,12,13,18,29,48,57,58,62,0,0
  440. 8390 DATA3,6,11,12,13,5,5,33,35,37,45,68,4,5,17,56,59,60
  441. 8392 DATA5,5,33,35,37,45,56,3,18,23,59,60
  442. 8394 DATA4,14,16,23,37,39
  443. 8400 DATA5,13,15,41,46,63,71,3,17,43,51,59,1,51,69
  444. 8410 DATA3,11,12,13,66,3,24,36,47,64,2,21,57,63
  445. 8412 DATA2,14,73,74,1,15,39,2,3,38,72,2,26,33,35,1,57,58
  446. 8420 DATA4,10,17,40,42,52,1,19,53,1,33,35
  447. 8430 DATA3,11,13,17,55,2,14,73,74,0,35,2,17,52,59,2,15,21,39,4,20,35,36,42,47
  448. 8440 DATA3,5,9,10,27,0,40,2,11,30,63
  449.